'i A0-A178  564 


MICROCOPY  RESOLUTION  TEST  CHART 
NATIONAL  BURIAL'  0»  STANOAHO‘:  PH  4 


AD- A 178  564 


MRL-TN-508 


DEPARTMENT  OF  DEFENCE 

DEFENCE  SCIENCE  AND  TECHNOLOGY  ORGANISATION 
MATERIALS  RESEARCH  LABORATORIES 
MELBOURNE,  VICTORIA 


TECHNICAL  NOTE 

MRL-TN-508 


JCL  PROCEDURES  TO  RUN  THE  HULL  CODE 


THE  CYBER  205  COMPUTER  INSTALLED  ON  CSIRONET 


David  L.  Smith 


#7  3 


“  1  0  J  6 


DEPARTMENT  OF  DEFENCE 
MATERIALS  RESEARCH  LABORATORIES 


TECHNICAL  NOTE 

MRL-TN— 508 

JCL  PROCEDURES  TO  RUN  THE  HULL  CODE  ON 
THE  CYBER  205  COMPUTER  INSTALLED  ON  CSIRONET 


David  L.  Smith 


ABSTRACT 

version  #120  of  the  HULL  computer  code  is  being  implemented  at 
MRL.  Two  computers  are  used:  a  Cyber  205  supercomputer,  and  a  Cyber  845 
front-end,  both  hosts  on  the  CSIRONET  network.  Thi3  report  explains  a  complex 
set  of  JCL  procedures  developed  to  run  HULL  on  this  Installation. 


Approved  for  Public  Release 


POSTAL  ADDRESS:  Director,  Materials  Research  Laboratories 

P.O.  Box  50,  Ascot  Vale,  Victoria  3032.  Australis 


SECURITY  CLASSIFICATION  OF  THIS  PACE  UNCLASSIFIED  /'  /  '  ‘J 

_ r  i  S  -i  t 


DOCUMENT  CONTROL 

DATA  SHEET 

REPORT  KO. 

AR  NO. 

REPORT  SECURITY  CLASSIFICATION 

MRL-TN-508 

AR— 00  4-8  49 

Unclassified 

TITLE 


JCL  procedures  to  run  tne  hull  code  on 
the  cyber  205  computer  installed  on  CSIRONET 


AUTHOR  (  S ) 

David  L.  Smith 

CORPORATE  AUTHOR 

Materials  Research  Laboratories 
PO  Box  50, 

Ascot  vale,  Victoria  3032 

REPORT  DATE 

TASK  NO. 

SPONSOR 

November  1986 

DST  86/250 

DSTO 

FILE  NO. 

REFERENCES 

PACES 

G6/4/8-3293 

4 

22 

CLASSIFICATION/LIMITATION  REVIEW 

DATE 

CLASSIFICATION/RELEASE  AUTHORITY 

superintendent,  MRL 

Physical  Chemistry  Division 

SECONDARY  DISTRIBUTION 


Approved  for  Public  Release 


ANNOUNCEMENT 


Announcement  of  this  report  is  unlimited 


KEYWORDS 


Hull  Computer  programs 

Hydrodynamic  code 


COSATI  CROUPS  0  90  2 


ABSTRACT 


version  #120  of  the  HULL  computer  code  is  being  implemented  at 
MRL.  Two  computers  are  used:  a  cyber  205  supercomputer,  and  a  Cyber  845 
front-end,  both  hosts  on  the  CSIRONET  network.  This  report  explains  a  complex 
set  of  JCL  procedures  developed  to  run  HULL  on  this  installation. 


SECURITY  CLASSIFICATION  OF  THIS  PACE 


UNCLASSIFIED 


CONTENTS 


Page  No. 

1 .  INTRODUCTION 

2 

2.  DISCUSSION 

2.1  Using-  the  hull  system 

2.2  Installation  on  CSIRONET  ' 

2.3  Job  FI  off  and  JCL  Design  3 

2.  A  Using  the  HULLJCL  Procedure  on  NOS  A 

3 .  CONCLUSIONS 

4 .  ACKNOWLEDGEMENTS  5 

6 

5 .  REFERENCES 

APPENDIX  A  -  Listing  of  the  NOS  Procedure  HULLJCL 

APPENDIX  B  -  A  Typical  HULLJCL  Input  and  Resultant  HULLJOB 
output 


JCL  PROCEDURES  TO  RUN  THE  HULL  CODE  ON 


THE  CYBER  205  COMPUTER  INSTALLED  ON  CSIRONET 


1 .  INTRODUCTION 


The  HULL  code  (1)  is  a  suite  of  programs  for  solving  problems  of 
hydrodynamic  flow.  HULL  is  actually  a  self  contained  system,  with  internal 
maintenance  and  editing  facilities,  currently  capable  of  running  on  a  number 
of  computer  sites  throughout  the  world.  A  utility  for  the  HULL  system  called 
SAIL  (21  manages  the  internally  coded  system,  and  i3  used  to  generate  Fortran 
programs  appropriate  to  the  problem  being  solved. 


The  Materials  Research  Laboratories  (krl)  obtained  a  current  version 
of  the  HULL  system  early  in  1986  from  Eglin  AFB,  through  TTCP  channels.  This 
version  (HULL  120)  is  capable  of  solving  problems  in  two  or  three  dimensions, 
using  Eulerlan  or  Lagranglan  equations  of  motion,  or  a  combination  of  both. 
hull  120  has  models  for  elastic/plastic  material  behaviour,  and  explosive  burn 
routines,  and  will  be  used  at  MRL  principally  to  study  explosive3-related 
phenomena.  (An  earlier  version,  HULL  20,  has  been  in  use  at  MRL  for  some 
years,  but  this  has  fewer  capabilities,  and  is  only  used  for  airblast 
studies ) . 


HULL  120  is  currently  being  installed  and  tested  on  a  Control  Data 
Cyber  205  supercomputer  on  the  CSIRONET  network.  Part  of  the  installation 
involves  embedding  into  the  HULL  system  the  necessary  parameters  and  changes 
to  make  HULL-generated  code  run  correctly  on  the  205.  This  process  is  not  yet 
complete,  and  will  be  reported  separately.  A  second  part  of  the  installation 
involves  writing  the  job  control  language '•(  JCL) 'to  run  HULL.  This  report 
describes  a  complex  set  of  JCL  procedures  developed  at  MRL  to  run  HULL 
programs  on  the  CSIRONET  Cyber  205. 
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DISCUSSION 


2.1  using  the  HULL  system 

HULL  120  Is  maintained  by  a  utility  called  SAIL,  which  operates  on 
coded  identifiers  and  directives  embedded  in  the  HULL  library.  SAIL  is 
similar  to  a  portable  version  of  control  Data’s  UPDATE  utility  13),  but  has 
extended  capabilities  such  as  internal  arithmetic  and  logic  processing  for 
calculation  of  internal  parameters. 


The  HULL  system  is  large:  over  200,000  records,  approximately  half 
of  which  are  lines  of  Fortran  code.  It  is  not  simple  to  use,  as  several  steps 
are  needed  to  extract  an  ordinary  Fortran  program,  sections  2.2  to  2.4 
explain  program  generation  in  more  detail,  with  •'he  aid  of  flowcharts.  Table 
l  contains  a  glossary  of  the  terms  used  in  describing  HULL  120  and  its 
installation . 


Once  HULL  has  been  installed,  the  user  will  normally  generate  and 
run  three  major  program  segments.  KEEL  is  the  pre-processor  which  defines  and 
fills  the  computational  grid.  HULL  (the  name  of  one  of  the  programs  as  well 
as  the  whole  system)  is  the  cycler  which  solves  the  difference  equations  and 
moves  the  problem  through  time.  PULL  is  the  post-processor  which  generates 
graphical  output  from  the  HULL  calculations.  The  JCL  procedures  described  in 
this  report  are  designed  to  help  generate  and  run  KEEL,  HULL  and  PULL. 


2.2  Installation  on  CSIROHET 

The  Cyber  205  computer  on  the  CSIRONET  network  is  available  as  a 
remote  host,  accessible  from  a  number  of  computers  via  a  Control  Data  "Loosely 
coupled  Network".  HULL  120  has  been  installed  using  a  cyber  845  running  the 
NOS  operating  system  to  access  the  205  running  the  VSOS  operating  system. 


Because  the  205  can  only  be  accessed  in  batch  mode,  and  because 
editing  facilities  and  system  utilities  on  VSOS  are  rather  poor,  the  SAIL 
utility  and  the  hull  library  are  maintained  on  the  845.  Figure  1  shows  a  flow 
chart  for  the  initial  installation  of  SAIL  and  HULL.  SAIL  was  modified  to  run 
on  NOS,  and  then  used  to  generate  a  packed  HULL  library  from  the  tape  file. 
SAIL  was  then  U3ed  in  conjunction  with  the  HULL  library  to  generate  two  files 
used  in  most  HULL  applications.  The  first,  a  program  called  PLANK,  is  used  to 
generate  expanded  secondary  input  from  the  normal  input  written  by  the  HULL 
user.  Thl3  technique  saves  the  user  from  having  to  create  complex  inputs  by 
hand.  PLANK  13  normally  generated  only  once  for  any  given  set  of  installation 
parameters  (eg  computer  word  size,  character  bit  length  etc).  The  second 
file,  MATLIB,  contains  the  material  property  constants  for  all  materials  used 
in  HULL  calculations.  This  library  file  will  also  not  need  regeneration 
unless  new  materials  are  added  to  the  system. 
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TABLE  1 


Glossary  of  terms  used  In  describing  HULL  120  and  Its  installation 


HULL 

HULLJCL 
HULLJOB 
HULL  LIBRARY 
HULL  120 
KEEL 

MATLIB 

PLANK 

PRIMARY  INPUT 
PULL 

SAIL 

SECONDARY  INPUT 

USER  INPUT 


Program  to  solve  the  difference  equations  and  time 
iterations  (cycler).  Also,  loosely,  the  HULL  120  system. 

NOS  procedure  to  assemble  JCL  to  run  KEEL,  HULL  or  PULL. 

File  containing  JCL  generated  by  HULLJCL 

File  containing  entire  HULL  120  system  in  packed  form. 

version  #120  of  the  entire  HULL  system. 

Program  to  define  and  fill  the  computational  grid  (pre¬ 
processor)  . 

File  containing  material  property  constants. 

Program  to  expand  user  input  and  generate  secondary  input 
for  SAIL. 

Input  for  KEEL,  HULL  or  PULL  generated  by  user. 

Program  to  process  HULL  results  and  generate  graphical 
output  (post-processor). 

Utility  to  manage  HULL  120,  operating  on  coded  internal 
identifiers  and  directives. 

Input  for  SAIL  to  generate  appropriate  version  of  KEEL,  HULL 
or  PULL  from  HULL  LIBRARY. 

See  PRIMARY  INPUT. 


2.3  Job  Flow  and  JCL  Design 


The  aim  has  been  to  write  a  set  of  JCL  commands  that  make  it  easier 
for  the  user  to  generate  and  run  the  KEEL,  HULL  and  PULL  programs.  As  both 
205  and  845  jobs  are  submitted  from  the  845,  a  NOS  "procedure"  (41  has  been 
used  to  construct  the  JCL.  Procedures  allow  interactive  entry  of  input 
parameters,  and  dynamic  substitution  of  these  parameters  into  the  procedure 
body.  Procedures  also  allow  IF  blocks  for  conditional  skipping  of  commands. 
Thi3  has  made  it  simple  to  input  account  names,  identifiers,  time  limits  etc, 
and  guarantee  error  free  multiple  Insertions  into  the  JCL. 


Figure  2  is  a  flow  chart  of  a  job  to  run  one  of  the  main  HULL 
programs.  The  job  spends  two  phases  on  the  845  and  two  phases  on  the  205. 
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Phase  1  Is  the  startup  on  the  845,  which  passes  the  input  file  to  the  205,  and 
submits  the  remaining  JCL  to  the  205.  (This  is  the  only  method  available  for 
running  Interdependent  jobs  between  the  two  hosts,  and  a  resubmission  of 
remaining  JCL  is  done  between  each  phase).  Phase  2  is  a  PLANK  run  on  the  205, 
where  the  user  input  is  analysed  and  a  secondary  input  generated  ready  for 
sail.  Phase  3  is  a  SAIL  run  on  the  845,  where  SAIL  uses  the  secondary  input 
parameters  to  generate  a  main  program  (KEEL,  HULL  or  pull)  from  the  packed 
hull  library.  Phase  4  is  the  run  of  this  program  on  the  205. 


During  the  job,  a  log  file  of  dayfiles  and  minor  outputs  is 
maintained  on  the  845,  and  appended  to  at  the  end  of  each  phase.  Files  are 
managed  in  such  a  way  that  intermediate  files  are  kept  in  the  event  of  error 
exits,  but  deleted  once  a  phase  of  the  job  has  been  successfully  completed. 
File  housekeeping  is  achieved  by  using  a  problem  identifier  as  part  of  the 
filename  for  key  files,  and  purging  old  copies  if  they  already  exist  from  a 
previous  run. 


Appendix  A  contains  a  listing  of  the  NOS  procedure  HULLJCL  which 
assembles  the  JCL  to  run  a  job  as  shown  in  Figure  2. 


2.4  using  the  HULLJCL  Procedure  on  NOS 


user  input  to  the  HULLJCL  procedure  is  interactive,  and  prompts  are 
included  to  help  the  user.  Input  parameters  are  as  follows: 


NUID 

nos  user  ID 

NUPW 

nos  user  password 

NPID 

nos  project  ID 

GROUP 

nos  group  charge  code 

VUID 

VSOS  user  ID 

VUPW 

vsos  user  password 

VP  ID 

vsos  project  ID 

PROG 

Name  of  program  to  be  run 

TIMELIMIT 

Time  limit  for  main  vsos  run 

PROBLEMID 

4  character  problem  identifier 

DATEFILE 

Name  of  file  containing  HULL  input  data 

DEFERNOS 

Run  NOS  jobs  at  deferred  rate  (yes/no) 

When  HULLJCL  has  been  run  with  these  inputs,  a  local  file  HULLJOB  is 
created  which  contains  the  JCL  to  run  one  of  the  main  programs,  KEEL,  HULL  or 
PULL.  HULLJOB  can  then  be  submitted  to  the  batch  queues.  Appendix  B  shows  a 
typical  HULLJCL  input  and  resultant  HULLJOB  output. 


For  complete  solution  of  a  problem  using  HULL  120,  all  three  main 
programs  will  be  run.  Files  passed  between  the  programs  are  automatically 
kept  and  attached  by  the  procedure.  Figure  3  shows  the  organisation  of  files 
used  and  passed  by  KEEL,  HULL  and  PULL,  in  some  cases,  minor  manual 
adjustments  to  HULLJOB  may  be  necessary  for  file  assignments  in  a  PULL  run,  as 
PULL  has  many  I/O  possibilities .  The  procedure  issues  a  warning  to  this 
effect  whenever  the  PULL  program  is  being  generated. 
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3.  CONCLUSIONS 


Running  the  HULL  120  system  on  CSIRONET  requires  complicated  jobs 
and  file  handling,  and  hence  verbose  JCL.  The  NOS  procedure  HULLJCL  offers  a 
convenient  way  of  assembling  the  JCL,  and  minimises  the  risk  of  errors  in  job 
construction. 


4 ■  ACKNOWLEDGEMENTS 


The  author  would  like  to  thank  Dr  Robert  Bell  of  CSIRO  Division  of 
Atmospheric  Research  and  David  Micklethwaite  of  Control  Data  Australia  for 
their  advice  on  the  JCL,  and  John  waschl  of  MRL  for  his  advice  on  running  HULL 
120. 

Grateful  acknowledgement  is  also  made  to  Eglin  AFB  for  providing 

HULL  120. 


5 


5 .  REFERENCES 


1.  Matuska,  D.A.  and  Osborn,  J.J.  "HULL  Documentation",  Orlando  Technology 

Inc.,  Florida,  1985. 

2.  "Sail  User's  Guide",  Shallmar  Research  and  Technology  Inc.,  Florida, 

1983 . 

3.  update  Reference  Manual,  Control  Data  corporation,  Manual  60449900. 

(Update  is  a  utility  for  maintaining  large  files). 

4.  Chapter  4,  NOS  Version  2  Reference  Set,  Control  Data  Corporation,  Manual 

60459680. 


6 


FIGURE  2 


FIGURE  3 


File  organisation  and  exchange  for  main  HULL  programs 


APPENDIX  A 


LISTING  OF  THE  NOS  PROCEDURE  HULLJCL 


.PROC,HULLJCL*I"  Proc  to  set  up  a  NOS/VSOS  Job  to  run  a  HULL  program", 
NUID'NOS  user  name  (UID) * , 

NUPW'NOS  user  password', 

NPID'NOS  project  Id  (PID) ' , 

GROUP'NOS  charge  number  (First  three  characters  of  your  PID)’, 
VUID'VSOS  user  name  or  number  (UID),  LF  If  same  as  NOS '= (*F, $$=SAME) , 
VUPW'VSOS  user  password,  LF  If  same  as  NOS ' = ( *F , $$=SAME) , 

VPID'VSOS  project  Id  (PID),  LF  if  same  as  NOS'=(*F,$9=SAME) . 

PROG ' Name  of  HULL  program  to  be  run'= (KEEL=KEE,HULL=HUL.PULL=PUL) , 
TIMELIMIT' Time  limit  for  main  VSOS  run ’  =  (*S4  (1234567890) ) , 
PROBLEMID’Problem  identifier  up  to  4  alphanumeric  characters'= 

( *S4 (ABCDEFGHIJKLMNOPQRSTUVWXYZ 12 34567890) ) , 

DATFILE'Name  of  NOS  permanent  file  containing  input  data'=(*F), 
DEFERNOS 'Run  the  NOS  jobs  deferred* = (Y=DEF, YES=DEF ,N=CYN,N0=CYN) . 

•  HELP 


Procedure  to  assemble  JCL  for  running  a  program  from  the  HULL  suite 
The  job  is  written  as  local  file  HULLJOB,  but  not  submitted. 


To  submit,  type  SUBMIT, HULL JOB, TO. 

** ‘Author  David  L.  Smith,  July  1986.*“ 

********* 


•ENDHELP 

.IF, 9PROC5 . EQ.9PULS, WARNING . 

NOTE (OUTPUT, NR) *  WARNING  -  PULL  FILE  ASSIGNMENTS  MAY  NEED  ADJUSTMENT. 

NOTE (OUTPUT, NR) *  CHECK  THE  PHASE  4  VSOS  RUN  DEPENDING  ON  TYPE  OF  PULL  RUN 
•ENDIF, WARNING. 

NOTE (OUTPUT, NR ) *  JOB  SAVED  AS  LOCAL  FILE  HULLJOB . 

•DATA, HULLJOB 


.*  *  BEGIN  PHASE  1  ON  NOS  * 

,*  ************************ 

SUB_PR0G_L , ST_DEFERNOS .  <«SEND  THE  DATA  TO  VSOS  AND  START  THE  RUN»> 
USER,NUID,NUPW. 

CHARGE , GROUP , NP I D . 

SETJOB,DC=NO. 

COMMENT.  GET  OR  ATTACH  THE  INPUT  DATA  TO  CO  TO  VSOS. 

GET. INDATA=DATFILE/NA. 

IFE. .NOT. FILE (INDATA, AS) , DCATT . 

ATTACH , I NDATA=DATF I LE . 

ENDIF, DOATT. 

COMMENT.  SEND  THE  DATA  FILE  TO  VSOS  VIA  MFLINK 
MFLINK, INDATA, ST=CYV, DD=C6 . 

. IF , $VUID$=9SAME9 .OR . $VUPW$=?SAME$ .OR . $VPID$=$SAME$ , SAMEPID . 

*  USER , U=NU I D , AC=NP I D , PA=NUFW . 

.ELSE, SAMEPID. 

‘USER , U=VUID , AC=VPID, PA=VUPW . 

.ENDIF, SAMEPID. 

•PURCE , DAT_PROBLEMID . 

‘MFTAKE , DATJPROBLEMID . 

‘DEFINE. DAT.PROBL  EM I D . 

COMMENT.  SEND  THE  REMAINING  JOBS  TO  VSOS  VIA  MFQUEUE 
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COPYCR , INPUT , VJOS1 , 3 . 

MF QUEUE , VJOB1 . ST=CYV , DC=IN . 

ENQUIRE, SR. 

COMMENT.  START  THE  LOG  FILE  ON  NOS 
PURGE . LOG_PROBLEMID/NA. 

DAYFILE,DF,PD=6. 

REWIND, OUTPUT. 

COPY , OUTPUT , DF . 

PACK  DF . 

save',df==log  problemid. 

. IF , $VUID$ .NE . 9 SAME 9 .PERMIT . 

PERMIT, LOC_PROBLEMID,VUID=A. 

.ENDIF. PERMIT. 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  AND  OUTPUT  ON  ABORT 
ENQUIRE, SR. 

PURGE , LOG_PROBLEMID/NA . 

DAYFILE,DF,PD=6. 

REWIND, OUTPUT. 

COPY. OUTPUT, DF. 

PACK  DF . 

SAVE DF =LOG_PROBL£MID . 

.EOR 

,*  ************************* 

.*  *  BEGIN  PHASE  2  ON  VSOS  * 

,*  ************************* 

PLANKRUN ,  STCYV .  <«RUN  PLANK  ON  VSOS  TO  GENERATE  INPUT2>» 
.IF.$VUID$=$SAM£$.OR.$VUPW$=$SAM£$.OR.$VpID$=$SAME$,SAMEPID. 

USER . U=NUID . AC=NP ID . PA=NUPW . 

.ELSE.SAMEPID. 

USER . U=VUID . AC=VP I D , PA=VUPW . 

.  ENDIF. SAMEPID. 

RESOURCE , J CAT=DEF ERRED , TL=300 , LP=14 , WS=1792 . 

SET,DAYFILE=OFF. 

PATTACH.HULLPOOL . 

ATTACH. DAT_PROBLEM I D . 

COPY. DAT  JPROBLEMID.TAPE5 . 

.  IF . SPROG9 . EQ . $HUL$ , KF ILES . 

ATTACH. KEE4_PR0BLEMID . AC=WRAXM . 

COPY . KEE4_PR0BLEMID , TAPE4. 

. ENDIF, KFILES. 

.  IF , $PROG$ . EQ . $PUL$ .HFILES . 

ATTACH, HUL4_PR0BLEMID , AC=WRAXM . 

COPY.HUL4_PROBLEMID, TAPE4 . 

. ENDIF. HFILES. 

FTN200 . I=PLANK1 2 1 . B=PLANKBIN/500 , SC=1 , LI ST=0 , C64 , OPT=0 , EKRORS=ERRLI ST . 
LOAD. PLANKBIN, CN=PLANKEXE/5000 , CDF=5000 , L=NULL . 

PURGE, TAP E6. 

DEFINE ,TAPE6 . 

PLANKEXE . 

REWIND  TAPE6 . 

COMMENT.  SEND  PLANK  OUTPUT  TO  NOS 


COPY, TAPE6 , T6TEMP . 

MFLINK (T6TEMP , ST=CYN , DD=C6 , 

JCS="USER , NUID , NUPW . " , ” CHARGE , GROUP . NPID . " , 

.  IF , $ GROUPS . EQ . ?DFC? , RFSGET . 

"PACKNAM , PN=RCYN00  2.", 

.ENDIF, RFSGET . 

"PURGE , PLNKOUT/NA . " , " SAVE , PLNKOUT/NA . " ) 

COMMENT.  SEND  SECONDARY  INPUT  FILE  TO  NOS 
MFLINK ( INPUT2 , ST=CYN , DD=C6 , 

JCS="USER , NUID , NUPW CHARGE , GROUP , NP I D . " , 

.  IF , $ GROUP? . EQ . $DFC$ , RFSGET . 

"PACKNAM , PN=RCYN0  02.", 

.ENDIF, RFSGET. 

"PURGE , IN2  PROBLEM I D/NA. " , "SAVE , IN2.PROBLEMID . ") 
COMMENT.  SEND  REMAINING  JOBS  TO  NOS  VIA  MF QUEUE 
COPY , INPUT , SAI L JOB . 

COPYL, INPUT, SAILJOB,PART=G,NUM=l , OSKIP=* . 

MFQUEUE , SAI L JOB , ST=CYN ,DD=C6,DC=IX. 

PURGE, TAPE6. 

SUMMARY. 

COMMENT,  APPEND  DAYFILE  ETC  TO  LOG  FILE  ON  NOS 
TV, 8+ . 

COPY , ERRL I ST , FOUT . 

TV, 4+ . 

DAYFILE, DF. 

COPYL. DF, FOUT, PART=G,NUM=l,OSKIP=* . 

MFLINK, FOUT , ST=CYN , DD=C6 , 

JCS= "USER , NUI D , NUPW . " , " CHARGE , GROUP , NP I D . " , 

. IF , $ GROUP? . EQ . ?DFC? .RFSGET . 

"PACKNAM , PN=RCYNOO  2 . ” , 

•ENDIF, RFSGET. 

” APPEND, LOG_PROBLEMID/UN=NUID, NA. ” . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  ETC  ON  ABORT 
P ATTACH, PROB . 

AUD (AUDLIST,UNIT10=AUDLIST) 

SUMMARY. 

TV, 8+ . 

COPY , ERRL I ST , FOUT . 

TV, 4+ . 

COPYL , AUDLI ST. FOUT . PART=G , NUM=1 , OSKIP=* . 

DAYFILE. DF. 

COPYL . DF , FOUT , PART=G , NUM=1 . OSKIP=* . 

MFLINK . FOUT , ST=CYN , DD=C6 , 

JCS=”USER , NUID , NUPW CHARGE , GROUP , NPID ." , 

. IF , ? GROUP? . EQ . ?DFC? , RFSGET . 

"PACKNAM , PN=RCYN0 02.", 

.ENDIF. RFSGET. 

"APPEND, LOG_PROBLEMID/UN=NUID,NA." . 

.EOR 

************************ 

.*  *  BEGIN  PHASE  3  ON  NOS  * 
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************************ 


SAILRUN, ST_DEFERNOS .  <<<RUN  SAIL  ON  NOS  TO  GENERATE  VERSION  OF  PROG  L>>> 
USER.NUID.NUPW. 

CHARGE, GROUP, NP ID. 

SETTL, 200 . 

SETJOB,DC=NO. 

COMMENT.  RUN  SAIL  ON  NOS  TO  GENERATE  THE  MAIN  PROGRAM. 

PURGE, SAILOUT/NA. 

PURGE , PROG_PROBLEMID/NA . 

DEFINE , PROG_PROBL EM I D . 

ATTACH , HVER 1 2 1/UN=DFCTJW , PN=RCYN0  0  2 . 

ATTACH , B I NL I B/UN=DFCDLS , PN=RCYN0  0  2 . 

GTR.BINLIB.LCO.REL/* 

GET, IN2_PROBL£MID . 

COP YCR. INPUT, PROG  L  JOB,l. 

REWIND,*. 

o?SaI^OT2=IN2~PROBLEMID'0^OT=SAILOUT'OLD=hveiU21,SOURCE=PROG  PROBLEMID. 
SAVE ,  SAI  LOUT  /NA .  “ 

COMMENT.  SEND  THE  PROGRAM  TO  VSOS . 

REWIND,*. 

COPY,PROC_PROBLEMID, LOCALF . 

MFLINK, LOCALF, ST=CYV.DD=C6. 

;,I,f^VHIH,9,7SSAME$  -0R  •  SVUPW$=$SAME$  .OR .  $VPID$=$SAME$ ,  SAMEPID. 

‘USER , U=NUID , AC=NP ID , PA=NUPW . 

•ELSE, SAMEPID. 

‘USER, U=VUID , AC=VP ID , PA=VUPW . 

.ENDIF, SAMEPID. 

‘PURGE . PROG_L_PROBLEMID . 

‘MFTAKE , PROG_L_PROBLEMID . 

‘DEFINE , PROG_L_PROBLEMID . 

COMMENT.  SEND  FINAL  JOB  TO  VSOS  VIA  MFOUEUE 
MFQUEUE , PROG_L_ JOB , ST=CYV , DC=IN . 

ENQUIRE. SR. 

COMMENT.  APPEND  DAYFILE  AND  OUTPUT  TO  LOG  FILE 
DAYFILE,DF,PD=6 . 

REWIND. OUTPUT. 

COPY. OUTPUT. DF. 

PACK.DF. 

APPEND , LOGJPROBLEMID . DF/NA . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  AND  OUTPUT  ON  ABORT 
SAVE. SAILOUT/NA. 

ENQUIRE, SR. 

DAYFILE,DF,PD=6. 

REWIND, OUTPUT. 

COPY, OUTPUT, DF. 

PACK.DF. 

APPEND , LOG_PROBLEMID, DF/NA . 

.EOR 

.*  ************************* 

•*  *  BEGIN  PHASE  4  ON  VSOS  * 

.*  **  *  *  ft  *  ft  *  *  *  **  *  *  *  *  ft  ft  ft  *  ft  ft  *  ft  ft 
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PROG_LRUN ,  STCYV .  «<THE  MAIN  JOB  -  RUN  PROG_L  ON  VSOS»> 

. IF, $VUID$=$SAME$ .OR . $VUPW$=$SAME$ .OR . $VPID$=$SAMES , SAMEPID . 

USER . U=NUID , AC=NP I D , PA=NUPW . 

•ELSE, SAMEPID. 

USER , U=VUID, AC=VP I D , PA=VUPW . 

.ENDIF, SAMEPID. 

RESOURCE, JCAT=DEFERRED,TL=TIMELIMIT,LP=14,WS=1792 . 

SET,DAYFILE=OFF. 

PATTACH , HULLPOOL . 

ATTACH , DAT_PROBLEMI D . 

ATTACH, PROG_L_PROBLEMID . 

COPY,DAT_PROBLEMID, TAPE5 . 

FTN200 , 1 =PROG_L_PROBLEMID , B=PROG_LBIN , SC=1 , LI ST=0 , C64 , OPT=0 , ERRORS=ERRLI ST . 
LOAD,PROG_LBIN,CN=PROC_LEXE/5000 , CDF=5000 , L=NULL . 

PURGE , TAPE4 , TAPE6 , TAPE9 . 

. IF , $PROG$ . EQ . $KEE$ , DEFRTW . 

COMMENT.  DEFINE  TAPES  4  AND  9  AS  RT=W  FOR  KEEL  RUN 
REQUEST, TAPE4,RT=W. 

REQUEST, TAPE9 , RT=W . 

. ENDIF , DEFRTW . 

DEFINE, TAPE4. 

DEFINE, TAPE6 . 

DEFINE, TAPE9. 

.  IF , $PROC$ . EQ . $HUL$ , HFI LES . 

COMMENT.  ATTACH  PREVIOUS  KEEL  FILES  FOR  HULL  RUN 
ATTACH, KEE4_PROBLEMID, AC=WRAXM . 

ATTACH, KEE9_PROBLEMID , AC=WRAXM . 

COPY . KEE4_PR0BLEMID , TAPE4 . 

COPY, KEE9_PROBLEMID, TAPE9 . 

. ENDIF, HFILES. 

.  IF , $PROG$ . EQ . $PUL$ , PFILES . 

WARNING  -  THE  FOLLOWING  FILE  ASSIGNMENTS  MAY  NEED  ADJUSTMENT 
.*  FOR  SOME  USES  OF  PROGRAM  PULL. 

,  * 

COMMENT.  ATTACH  PREVIOUS  HULL  FILES  FOR  PULL  RUN 
ATTACH, HUL4_PROBLEMID.AC=WRAXM . 

ATTACH , HUL9  JPROBLEMI D , AC=WRAXM . 

COPY . HUL4_PR0BLEM I D , TAP  E  4 . 

COPY , HUL9_PR0BLEMI D , TAP  E  9 . 

DEFINE. TAPE10. 

.ENDIF, PFILES. 

PROG_LEXE . 

COMMENT.  SWITCH  FILE  NAMES  ON  SUCCESSFUL  COMPLETION  OF  RUN 
PURGE . PROG_4_PROBLEMID , PROG_9  PROBLEMI D . 

SWITCH, TAPE4, PROG  4_PROBLEMID. 

SWITCH. TAPE9,PROG_9_PROBLEMID . 

REWIND, TAPE6. 

COMMENT.  SEND  PROG_L  OUTPUT  TO  NOS 
COPY. TAP E6 , T6TEMP . 

MFLINK.T6TEMP, ST=CYN,DD=C6, 

JCS="USER . NUID , NUPW . " . " CHARGE , GROUP , NF I D . " , 
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. IF , $ GROUPS . EQ . SDFCS .RFSGET . 

"  PACKNAM ,  P  N’=RCYN0 0  2  .  " . 

.ENDIF ,RFSGET . 

"PURGE , PROG  L_OUT/NA . "  ,  "DEFINE ,  PROG_L._OUT .  "  . 
PURGE, TAPE6. 

P ATTACH , PROB .  . 

AUD (AUDLIST,UNIT10=AUDLIST) 

SUMMARY. 

COMMENT.  APPEND  DAYFILE  ETC  TO  LOG  FILE  ON  NOS 
TV, 8+ . 

COPY, ERRL I ST , FOUT . 

TV, 4+ • 

COP YL , AUDL 1ST, FOUT , PART=G , NUM= 1 , OSK I P=  » . 
DAYFILE, DF. 

COPYL , DF , FOUT , PART=G , NUM= 1 , OSKI P = * . 

MFLINK, FOUT , ST=CYN , DD=C6 . 

JCS="USER , NUID , NUPW . " , " CHARGE , GROUP , NP ID . " , 

.  IF, SCROUPS.EQ. SDFCS, RFSGET. 

"PACKNAM , PN=RCYNO  0  2 . " , 

. ENDIF, RFSGET. 

" APPEND, LOG_PROBLEMID/UN=NUID,NA. " . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  ETC  ON  ABORT 
PATTACH , PROB . 

AUD (AUDLIST. UNIT10=AUDLIST) 

SUMMARY. 

TV, 8+ . 

COPY . ERRLI ST , FOUT . 

TV, 4+ . 

COPYL , AUDL 1ST, FOUT ,PART=C, NUM= 1 , OSK I P= * . 
DAYFILE, DF. 

COPYL , DF . FOUT , PART=G , NUM= 1 , OSKI P=  * . 

MFLINK. FOUT , ST=CYN . DD=C6 , 

JCS="USER . NUID . NUPW "CHARGE .GROUP , NP ID ." , 

.  IF . $ GROUPS . EQ . SDFCS .RFSGET . 

"PACKNAM. PN=RCYN002 . " , 

.ENDIF. RFSGET. 

"APPEND, LOG_PROBLEMID/UN=NUID,NA. ” . 

.  EOR 
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APPENDIX  B 


A  TYPICAL  HULLJCL  INPUT  AND  RESULTANT  HULLJOB  OUTPUT 


HULLJCL  INPUT: 

HULLJCL,  NUID=DFCDLS.  NUPW=NOSPASS ,  NPID=DFCPRF,  CROUP=DFC, 
VUID=MABDDR,  VUPW=VSOSPAS ,  VPID=MABDDR.  PROG=KEEL,  TIMELIMIT=300 
PROBLEMID=TEST,  DATF I L E =MYDATA ,  DEFERNOS=YES . 

HULLJOB  OUTPUT: 


SUBKEEL, STDEF.  <<<SEND  THE  DATA  TO  VSOS  AND  START  THE  RUN>>> 

USER , DFCDLS , NOSPASS . 

CHARGE , DFC , DFCPRF . 

SETJOB , DC=NO . 

COMMENT.  GET  OR  ATTACH  THE  INPUT  DATA  TO  GO  TO  VSOS. 

GET , INDATA=MYDATA/NA . 

IFE. .NOT. FILE (INDATA. AS) .DOATT. 

ATTACH, I NDATA=MYDATA . 

ENDIF, DOATT. 

COMMENT.  SEND  THE  DATA  FILE  TO  VSOS  VIA  MFLINK 
MFLINK, INDATA , ST=CYV . DD=C6 . 

‘USER , U-MABDDR . AC=MABDDR , PA=VSOSPAS . 

•PURGE. DATTEST. 

•MFTAKE , DATTEST . 

•DEFINE, DATTEST. 

COMMENT.  SEND  THE  REMAINING  JOBS  TO  VSOS  VIA  MFOUEUE 
COPYCR , INPUT. VJOB3 . 3 . 

MFQUEUE . V JOB I . ST=CYV , DC= I N . 

ENQUIRE. SR. 

COMMENT.  START  THE  LOG  FILE  ON  NOS 
PURGE. LOCTEST/NA. 

DAYFILE.DF.PD=6. 

REWIND. OUTPUT. 

COPY. OUTPUT, DF. 

PACK.DF. 

SAVE . DF =LOGTEST . 

PERMI T . LOGTEST . MABDDR=A . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  AND  OUTPUT  ON  ABORT 
ENQUIRE. SR. 

PURGE . LOCTEST/NA . 

DAYFILE,DF,PD=6 . 

REWIND, OUTPUT. 

COPY , OUTPUT , DF . 

PACK.DF. 

SAVE . DF=LOCTEST . 

•EOR 

PLANKRUN , STCYV .  «<RUN  PLANK  ON  VSOS  TO  GENERATE  INPUT2>>> 

USER . U=MABDDR . AC=MABDDR , PA=VSOSPAS . 

RESOURCE , JCAT=DEF ERRED, TL= 300 , LP = 1 4 , WS= 1 7 9 2 . 

SET , DAYF I LE=OFF . 

PATTACH , HULLPOOL . 

ATTACH, DATTEST. 

COPY , DATTEST .TAPES . 

FTN200 , I=PLANK121 , B=P LANK BIN/ 500 , SC=1 , LI ST=0 , C64 , OPT=0 , £RRORS=ERRLI ST . 
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LOAD, PLANKBIN. CN-PLANKEXE/5000 . CDF=5000 , L=NULL . 

FURGE, TAPE6 . 

DEFINE, TAPE6. 

PLANKEXE . 

REWIND, TAPE6. 

COMMENT.  SEND  PLANK  OUTPUT  TO  NOS 
COPY, TAPE6.T6 TEMP. 

MFL INK (T6TEMP , ST=CYN , DD=C6 , 

JCS="USER , DFCDLS , NOSPASS . " , " CHARGE , DFC , DFCPRF . " , 

"PACKNAM , PN=RCYN002 . " , 

"PURGE , PLNKOUT/NA . " , " SAVE , PLNKOUT/NA . " ) 

COMMENT.  SEND  SECONDARY  INPUT  FILE  TO  NOS 
MFL I NK ( I NPUT2 , ST=CYN , DD=C6 , 

JCS="USER , DFCDLS , NOSPASS . " , "CHARGE , DFC , DFCPRF . " , 

"PACKNAM, PN=RCYN002 . " , 

"PURGE, IN2TEST/NA. " , "SAVE , IN2TEST. ") 

COMMENT.  SEND  REMAINING  JOBS  TO  NOS  VIA  MF QUEUE 
COPY, INPUT, SAILJOB. 

COPYL , INPUT, SAI L JOB , PART=C , NUM= 1 , OSKI P=  * . 

MFQUEUE , SAILJOB, ST=CYN.DD=C6 , DC=I X . 

PURGE . TAPE6 . 

SUMMARY. 

COMMENT.  APPEND  DAYFILE  ETC  TO  LOG  FILE  ON  NOS 
TV, 8+ . 

COP Y . ERRL I ST . FOUT . 

TV, 4+ . 

DAYFILE, DF. 

COPYL , DF , FOUT , PART=C , NUM= 1 . OSKIP= • . 

MFLINK. FOUT. ST=CYN, DD=C6 . 

JCS="USER , DFCDLS . NOSPASS . " , "CHARGE , DFC , DFCPRF . " , 

"PACKNAM. PN=RCYNO 02 . " . 

"APPEND . LOGTEST/UN=DFCDLS , NA . " . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  ETC  ON  ABORT 
PATTACH. PROB . 

AUD (AUDLIST,UNIT10=AUDLIST) 

SUMMARY. 

TV.8+. 

COPY . ERRLI ST . FOUT . 

TV, 4+ . 

COPYL, AUDLIST, FOUT. PART=G,NUM=l,OSKIP=* . 

DAYFILE, DF. 

COPYL , DF , FOUT . PART=G . NUM= 1 . OSKI P=  * . 

MFLINK. FOUT , ST=CYN , DD=C6 , 

JCS="USER, DFCDLS , NOSPASS . " . " CHARGE , DFC , DFCPRF . " . 

"PACKNAM, PN=RCYN002 . " , 

"APPEND , LOGTEST/UN=DFCDLS , NA . " . 

*EOR 

SAILRUN , STDEF .  «<RUN  SAIL  ON  NOS  TO  GENERATE  VERSION  OF  KEEL>>> 
USER . DFCDLS , NOSPASS . 

CHARGE, DFC, DFCPRF. 

SETTL.200. 
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SET JOB , DC=NO . 

COMMENT.  RUN  SAIL  ON  NOS  TO  GENERATE  THE  MAIN  PROGRAM. 

PURGE .SAILOUT/NA. 

PURGE, KEETEST/NA. 

DEFINE, KEETEST. 

ATTACH , HVER 121 /UN=DF CT JW , PN=RCYN0  0  2 . 

ATTACH, BINLI B/UN=DFCDLS , PN=RCYNOO  2 . 

GTR,BINLIB,LGO.REL/* 

GET, IN2TEST. 

COPYCR , INPUT , KEELJOB , 1 . 

REWIND, *. 

LGO, INPUT2=IN2TEST,OUTPUT=SAILOUT,OLD=HVER121,SOURCE=KEETEST. 

SAVE .SAILOUT/NA. 

COMMENT.  SEND  THE  PROGRAM  TO  VSOS. 

REWIND,*. 

COPY , KEETEST, LOCALF . 

MFLINK.LOCALF,ST=CYV,DD=C6 . 

•USER , U=MABDDR , AC=MABDDR , PA=VSOSPAS . 

•PURGE, KEELTEST. 

•MFTAKE.KEELTEST. 

•DEFINE, KEELTEST. 

COMMENT.  SEND  FINAL  JOB  TO  VSOS  VIA  MF QUEUE 
MFQUEUE .KEELJOB , ST=CYV , DC= I N . 

ENQUIRE. SR. 

COMMENT.  APPEND  DAYFILE  AND  OUTPUT  TO  LOG  FILE 
DAYF ILE , DF , PD=6 . 

REWIND. OUTPUT. 

COPY, OUTPUT, DF. 

PACK  DF . 

APP  Elk . LOCTEST , DF/NA . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  AND  OUTPUT  ON  ABORT 
SAVE, SAILOUT/NA. 

ENQUIRE. SR. 

DAYFILE.DF.PD=6 . 

REWIND, OUTPUT. 

COPY, OUTPUT, DF. 

PACK  DF • 

APPElk , LOGTEST , DF/NA . 

•EOR 

KEELRUN .  STCYV .  <«THE  MAIN  JOB  -  RUN  KEEL  ON  VSOS»> 

USER . U=MABDDR , AC=MABDDR , PA=VSOSPAS . 

RESOURCE, JCAT=DEFERRED,TL= 300, LP=14, WS=1792 . 

SET.DAYFILE=OFF . 

PATTACH. HULLPOOL . 

ATTACH, DATTEST. 

ATTACH, KEELTEST. 

COPY . DATTEST , TAPE5. 

FTN200 , I=KEELTEST . B=KEELBIN, SC=1 , LI ST=0 , C64, OPT=0 , ERRORS=ERRLIST . 
LOAD, KEELBIN, CN=KEELEXE/5000 , CDF=5000 , L=NULL . 

PURGE , TAPE4, TAPE6 , TAPE9 . 

COMMENT.  DEFINE  TAPES  4  AND  9  AS  RT=W  FOR  KEEL  RUN 
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REQUEST, TAPE4 . RT=W , 

REQUEST , TAPE9 , RT=W . 

DEFINE, TAPE4 . 

DEFINE, TAPE6. 

DEFINE, TAPE9. 

KEELEXE.  I 

COMMENT.  SWITCH  FILE  NAMES  ON  SUCCESSFUL  COMPLETION  OF  RUN  | 

PURGE, KEE4TEST.KEE9TEST. 

SWITCH, TAPE4, KEE4TEST . 

SWITCH, TAPE9 , KEE9TEST . 

REWIND, TAPES.  i 

COMMENT.  SEND  KEEL  OUTPUT  TO  NOS 
COPY , TAPE6 , T6TEMP . 

MFLINK, T6TEMP , ST=CYN , DD=C6 , 

JCS="USER , DFCDLS , NOSPASS . " , "CHARGE , DFC , DFCPRF . " , 

"PACKNAM, PN=RCYNOO 2 . " , 

"PURGE , KEELOUT/NA . " , "DEFINE , KEELOUT . " .  q 

PURGE, TAPE6. 

PATTACH , PROB . 

AUD (AUDLI ST , UNIT10=AUDLI ST) 

SUMMARY. 

COMMENT.  APPEND  DAYFILE  ETC  TO  LOG  FILE  ON  NOS 
TV, 8+ . 

COPY.ERRLIST.FOUT. 

TV, 4+ . 

COPYL, AUDLIST, FOUT, PART=C,NUM=l,OSKIP=*. 

DAYFILE, DF. 

COPYL , DF , FOUT , PART=G , NUM= 1 , OSKI P= * . 

MFLINK, FOUT, ST=CYN,DD=C6, 

JCS="USER , DFCDLS , NOSPASS . " , "CHARGE , DFC . DFCPRF . " , 

"PACKNAM, PN=RCYN002 . " , 

"APPEND , LOGTEST/UN=DFCDLS , NA . " . 

EXIT. 

COMMENT.  RETRIEVE  DAYFILE  ETC  ON  ABORT 
PATTACH. PROB. 

AUD (AUDLIST, UNIT10=AUDLIST) 

SUMMARY. 

TV, 8+ . 

COPY.ERRLIST.FOUT. 

TV.4+. 

COPYL . AUDLI ST , FOUT . PART=C , NUM=1 , OSKI P=  * . 

DAYFILE, DF . 

COPYL. DF, FOUT. PART=G,NUM=1. OSKI P=» . 

MFLINK . FOUT , ST=CYN , DD=C6 , 

JCS= "USER, DFCDLS. NOSPASS. ", "CHARGE, DFC, DFCPRF. ", 

"PACKNAM . PN=RCYNOO 2 . " , 

"APPEND , LOGTEST/UN=DFCDLS , NA . ” . 

*EOR 
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